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-- StreamsB.Mesa Edited by Sandman on Jul 24, 1978 9:40 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USOtfG [ 

CharsPerPage, MaxFilePage, PageCount, PageNumber], 
AltoFileDefs: FROM "altof iledafs" USING [CFA, eofDA, FA, fillinDA, vDA] , 
BFSDefs: FROM "bfsdefs" USING [DeletePages], 
InlineDefs: FROM "inl inedef s 1 " USING [BITAND], 
SegmentDefs: FROM "segmentdefs" USING [ 

Append, CloseFile, Def aul tAccess , Def aul tVersion, FileHandle, 

GetFileLength, InsertFileLength, JumpToPage, LockFile, NewFile, OpenFile, 

Read, ReleaseFile, SetFileAccess, UnlockFile, UpdateFileLength, Write], 
StreamDefs: FROM "streamdef s" USING [ 

AccessOptions, DiskHandle, StreamHandle, Streamlndex, StreamObject], 
StreamsA: FROM "streamsa" USIMG [ 

Cleanup, EndOf, Fixup, Pos, PositionByte, ReadByte, ReadWord, StreamError, 

TransferPages, WriteByte, tofriteWord] , 
SystemDefs: FROM "systemdefs" USING [ 

AllocateHeapNode, AllocateRasidentPages, FreeHeapNode, FreePages]; 

DEFINITIONS FROM AltoDefs, AltoFileDefs, StreamDefs; 

StreamsB: PROGRAM 

IMPORTS BFSDefs, SegmentDefs, SystemDefs, StreamsA 

EXPORTS StreamDefs SHARES StreamsA, StreamDefs, SegmentDefs « BEGIN 

OPEN StreamsA; 

WindowSize: PageCount ■ 1; 

NewByteStream: PUBLIC PROCEDURE [name: STRING, access : AccessOptions] 
RETURNS [DiskHandle] - 
BEGIN OPEN SegmentDefs; 

RETURN[Create[NewFile[name, access, Def aul tVersion] , bytes, access]] 
END; 

NewWordStream: PUBLIC PROCEDURE [name: STRING, access : AccessOptions] 
RETURNS [DiskHandle] ■ 
BEGIN OPEN SegmentDefs; 

RETURN[Create[NewFile[name, access, Def aul tVersion], words, access]] 
END; 

CreateByteStream: PUBLIC PROCEDURE [file:SegmentDefs .FileHandle, access: AccessOptions] 
RETURNS [DiskHandle] - BEGIN 
RETURN[Create[file, bytes, access]] 
END; 

CreateWordStream: PUBLIC PROCEDURE [file:SegmentDef s . FileHandle , access: AccessOptions] 
RETURNS [DiskHandle] - BEGIN 
RETURN[Create[f ile, words, access]] 
END; 

Create: PROCEDURE [f ile:SegmentDef s . FileHandle, units :{bytes .words} , access: AccessOptions] 
RETURNS [stream: DiskHandle] ■ 
BEGIN OPEN SegmentDefs; 
fa: FA «- FA[eofDA,0,0]; 

IF access = Def aul tAccess THEN access «- Read; 
SetFileAccess[f ile, access]; 

stream «- SystemDefs .AllocateHeapNode[SIZE[Disk StreamObject]]; 
streamt <~ StreamObject[ 

reset: Reset, get: ReadByte, putback: PutBack, 

put: WriteByte, endof: EndOf, destroy: Destroy, 

body: Disk[ 

eof: FALSE, dirty: FALSE, unit: 1, index: 0, size: 0, 

getOverflow: Fixup, savedGet: ReadError, putOverflow: Fixup, savedPut: WriteByte, 
file:, read:, write:, append:, page: 0, char: 0, buffer:, das:]]; 
stream. file <- file; 

stream, read <- In! ineDefs .BITAND[access ,Read]#0; 
stream. write «- In! ineDef s.BITAND[access ,Wri te]#0; 
stream, append «- Inl ineDef s .BITAND[access ,Append]#0; 
IF units a words THEN 

BEGIN OPEN stream; 

get «- ReadWord; unit «- 2; 

put «- savedPut «- WriteWord; 

END; 
IF -stream. read THEN stream, get «- ReadError; 
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SELECT In1ineDefs.BITAND[access,Write+Append] FROM 

■> stream. put «- stream. savedPut <- WriteError; 

Write H > stream. savedPut «- WriteError; 

Append -> stream. put *- WriteError; 

ENDCASE; 
stream. buffer. word «- Sy s temDefs. All oca teResi dent Pages [WindowSize] ; 
BEGIN ENABLE UNWIND «> SystemDefs . FreePages[stream. buffer .word] ; 

LockF1le[file]; InsertFi1eLength[f ile, @fa]; OpenFile[f ile]; 

stream. das[last] «- stream. das[next] *- fillinDA; 

stream. das[current] *• f ile.fp.leaderDA; 

IF access ■ Append 

THEN [] «- FileLength[stream] 
ELSE Jump[stream,@fa,l]; 
END; 
RETURN 
END; 

OpenDiskStream: PUBLIC PROCEDURE [stream:StreamHandle] - * 
BEGIN fa: FA; 
WITH s:stream SELECT FROM 
Disk ■> 
BEGIN 
IF s. buffer. word*NIL THEN s .buffer .word <- 

SystemDef s. All ocateResi dent Pages [WindowSize]; 
fa <- FA[s.das[current],s.page,Pos[@s]]; 
SegmentDefs.OpenFile[s.f ile]; 
JumpToFA[@s,@fa]; 
END; 
ENDCASE ■> SIGNAL StreamError[@s .StreamType] ; 
RETURN 
END; 

CleanupDiskStream: PUBLIC PROCEDURE [stream:StreamHand1e] - 
BEGIN 
WITH s:stream SELECT FROM 

Disk => Cleanup[@s,TRUE]; 

ENDCASE => SIGNAL StreamError[6s .StreamType] ; 
RETURN 
END; 

Reset: PROCEDURE [stream:StreamHandle] - 
BEGIN fa: FA; 
WITH s:stream SELECT FROM 
Disk »> 

IT G . pago l'THCW Pua i I luiiOy lu[Qj ,0 , TALCE] 
EMM nrOIII fa <- FA[eofDA,0,0]; Jump[@s ,@f a, 1] ; END; 
ENDCASE -> SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END; 

CloseDiskStream: PUBLIC PROCEDURE [stream:StreamHandle] - 
BEGIN 

WITH s: stream SELECT FROM 
Disk *> 
BEGIN 

Cleanup[@s,TRUE]; 

SystemDefs .FreePages[s . buff er. word]; 
IF s.f ile.segcount«0 THEN 

SegmentDefs .CloseFile[s.file]; 
s. buffer .word <- NIL; 
END; 
ENDCASE *> SIGNAL StreamError[@s .StreamType]; 
RETURN 
END; 

TruncateDiskStream: PUBLIC PROCEDURE [stream:StreamHandle] 
BEGIN 
WITH s: stream SELECT FROM 

Disk *> Ki11[@s,s. write]; 

ENDCASE «> SIGNAL StreamError[@s , StreamType] ; 
RETURN 
END; 

Destroy: PROCEDURE [stream:StreamHandle] - 
BEGIN 
WITH s: stream SELECT FROM 
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Disk ■> Km[0s,-s.pead]; 

ENDCASE ■> SIGNAL StreamError[@s,StreamType]; 
RETURN 
END; 

Kill: PROCEDURE [stream:DiskHandle, trunc:BOOLEAN] - 
BEGIN OPEN stream; 
da: vDA; pn: PageNumber; 
IF buffer. word # NIL THEN 
BEGIN da <- eofDA; 

IF trunc AND Getlndex[stream] # StreamIndex[0 ,0] THEN 
BEGIN -- truncate the file 

-- this is not a separate procedure because it 
-- leaves the stream buffer in an awful state, 
pn <- page; da <- das[next]; das[next] ♦- eofDA; 
IF char # Pos[stream] THEN 

BEGIN char «- Pos[stream]; dirty «• TRUE END; 
END; 
IF dirty THEN Cleanup[stream,TRUE] ; 
IF da § eofDA THEN 

BFSDefs.DeletePages[buffer,word,@f ile.fp ,da,pn+l]; 
SystemDef s. FreePages[ buffer .word]; 
END; 
SegmentDefs.UnlockFile[f ile]; 
IF f ile.segcount^O THEN 

SegmentDefs.ReleaseFile[f ile]; 
SystemDef s . FreeHeapNode[ stream]; 
RETURN 
END; 

Jump: PROCEDURE [s :DiskHandle , fa:POINTER TO FA, pn : PageNumber] - 
BEGIN OPEN s; 

cfa: CFA <- CFA[f ile.fp ,f at] ; 

IF dirty THEN Cleanup[s .TRUE] ; Posi tionByte[s ,0 , FALSE]; 
[das[last].das[next]] <- SegmentDef s. JumpToPage[@cf a, pn , buffer. word]; 
[das[current], page, char] <- cfa. fa; 

IF das[next] a eofDA THEN SegmentDef s.UpdateFi leLength[f ile.Ocfa. f a]; 
PositionByte[s,IF pagetfpn THEN char ELSE MIN[char , fa. byte], FALSE]; 
RETURN 
END; 

ReadError: PROCEDURE [s :StreamHandle] RETURNS [UNSPECIFIED] - 
BEGIN 

SIGNAL StreamError[s,StreamAccess]; 
RETURN[0] 
END; 

PutBack: PROCEDURE [stream:StreamHandle. item:UNSPECIFIED] « 
BEGIN 

SIGNAL StreamError[stream,StreamOperation]; 
RETURN 
END; 

WriteError: PROCEDURE [stream:StreamHandle, item:UNSPECIFIED] » 
BEGIN 

SIGNAL StreamError[stream,StreamAccess]; 
RETURN 
END; 

bite: INTEGER ■ 60; -- don't use too much heap 

PositionPage: PROCEDURE [s :DiskHandle, p:PageNumber] ■ 
BEGIN 

d, dp: INTEGER; 
np: PageCount; 

Cleanup[s,TRUE]; PositionByte[s , , FALSE]; 
-- should we reset first? 
SELECT INTEGER[s.page-p] FROM 

<= -> NULL; 

- 1, < INTEGER[s. page/10] -> NULL; 

ENDCASE -> Reset[s]; 
WHILE (d ♦• p-s.page)#0 DO 

dp ♦- IF d < THEN -1 ELSE MIN[d ,bite] ; 

np «- TransferPages[s ,NIL,dp, in , FALSE] ; 

IF dp > AND np # dp THEN EXIT; 

REPEAT FINISHED ■> RETURN; 
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ENDLOOP; 
IF ~s. append THEN ERROR StreamError[s,StreamAccess]; 
-- extend the file (the first transfer flushes the buffer) 
IF s.char > THEN [] 4- TransferPages[s , NIL, 1 , out, FALSE] ; 
WHILE (d «- p-s.page)#0 DO 

[] <- TransferPages[s, NIL, MIN[d, bite], out, FALSE]; 

ENDLOOP; 
RETURN 
END; 

-- Streamlndex Manipulation 

Getlndex: PUBLIC PROCEDURE [stream:StreamHandle] 
RETURNS [Streamlndex] - BEGIN 
WITH s:stream SELECT FROM 
Disk ■> 
BEGIN 

-- make sure we're not at end of page 
Cleanup[@s, FALSE]; — don't flush 
RETURN[StreamIndex[s.page-l,Pos[@s]]]; 
END; 
ENDCASE »> SIGNAL StreamError[6s .StreamType] ; 
RETURN[StreamIndex[0,0]] 
END; 

Setlndex: PUBLIC PROCEDURE [stream:StreamHandle, index:StreamIndex] - 
BEGIN 

WITH s:stream SELECT FROM 
Disk ■> 
BEGIN 

index <- Normal izelndex[index]; 
IF index. page+1 # s.page 

THEN PositionPage[@s, index. page+1]; 
PositionByte[@s, index. byte, FALSE]; 
END; 
ENDCASE «> SIGNAL StreamError[@s .StreamType] ; 
RETURN 
END; 

Normal izelndex: PUBLIC PROCEDURE [index:StreamIndex] 
RETURNS [Streamlndex] - 
BEGIN 
IF index. byte >* CharsPerPage THEN 

BEGIN 

index. page *- index. page + index. byte/CharsPerPage; 

index. byte <- index. byte MOD CharsPerPage; 

END; 
RETURN[index] 
END; 

Modifylndex: PUBLIC PROCEDURE [index: Streamlndex, change: INTEGER] 
RETURNS [Streamlndex] « 
BEGIN OPEN AltoDefs; 
delta: CARDINAL * ABS[change]; 
pages: CARDINAL ♦- del ta/CharsPerPage; 
bytes: CARDINAL +■ delta MOD CharsPerPage; 
index *■ Normal izelndex[index]; 
SELECT change FROM 
> «> 
BEGIN 

bytes *- index. byte + bytes; 
IF bytes >* CharsPerPage THEN 

BEGIN bytes <- bytes - CharsPerPage; pages ♦- pages + 1 END; 
pages *- index. page + pages; 
END; 
- ■> RETURN [index]; 
< -> 
BEGIN 

IF bytes < a index. byte THEN bytes *- index. byte - bytes 
ELSE BEGIN bytes <- index. byte+CharsPerPage-bytes; pages <- pages + 1 END; 
IF pages < a index. page THEN pages <- index, page - pages 
ELSE RETURN[[0, 0]]; 
END; 
ENDCASE; 
RETURN [[pages, bytes]]; 
END; 
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-- procedures to test for equality of stream indexes 

Equallndex: PUBLIC PROCEDURE[il, i2: Streamlndex] RETURNS [BOOLEAN] ■ 

BEGIN 

il <- NormalizeIndex[il]; i2 <- Normal 1zelndex[i2]; 

RETURN[il ■ 12]; 

END; 

GrEquallndex: PUBLIC PROCEDURE[il, i2: Streamlndex] RETURNS [BOOLEAN] 
BEGIN 

RETURN[EqualIndex[il,i2] OR Grlndex[il, i2]]; 
END; 

Grlndex: PUBLIC PROCEDURE[il, i2: Streamlndex] RETURNS [BOOLEAN] « 
BEGIN 

il ♦- Normal izelndex[il]; i2 <- Normal izelndex[i2]; 
RETURN[il.page > i2.page OR (il.page « i2.page AND 

il.byte > i2.byte)]; 
END; 

GetFA: PUBLIC PROCEDURE [stream:StreamHandle, fa:POINTER TO FA] ■ 
BEGIN 

WITH s: stream SELECT FROM 
Disk »> 
BEGIN 

-- make sure not at end of a page 
Cleanup[@s, FALSE]; — don't flush 
fat <- FA[s.das[current],s.page,Pos[@s]]; 
END; 
ENDCASE => SIGNAL StreamError[@s ,StreamType] ; 
RETURN 
END; 

FileLength: PUBLIC PROCEDURE [stream:StreamHandle] 
RETURNS [Streamlndex] - 
BEGIN fa: FA; 
WITH s:stream SELECT FROM 
Disk => 
BEGIN 

SegmentDefs.GetFileLength[s.file, @fa]; 
Jump[@s ,@f a.MaxFilePage]; 
So - gmontDofQ.UpdatoFiloLongth[fr;f il . e, Qfa ]; 
RETURN[GetIndex[©s]]; 
END; 
ENDCASE «> SIGNAL StreamError[@s .StreamType] ; 
RETURN[StreamIndex[0,0]] 
END; 

JumpToFA: PUBLIC PROCEDURE [stream:StreamHandle , fa:POINTER TO FA] » 
BEGIN 

WITH s: stream SELECT FROM 
Disk «> 

BEGIN Jump[@s t fa,fa.page]; 

IF fa. page # s.page OR fa. byte # Pos[@s] THEN 

SIGNAL StreamError[@s f StreamEnd]; 
END; 
ENDCASE *> SIGNAL StreamError[@s .StreamType] ; 
RETURN 
END; 

END.. 



